%% Figure 4: Brazil: Cross Section Population in 2040: Baseline and Counterfactuals


School_Improvement_NextGen_2040=transpose([5.20	18.53	20.11	24.48	31.68;
                                4.30	15.22	18.86	28.69	32.92; ...
                                4.95	16.06	16.17	26.35	36.47;
                                2.84	14.01	20.45	24.19	38.52]);


figure(1)
newcolors = [0 0 0
%            0.2 0.2 0.2
            0.4 0.4 0.4
            0.7 0.7 0.7
            1 1 1];
gray=colororder(newcolors);
bar(School_Improvement_NextGen_2040)
xlabel('education level','FontSize',14)
ylabel('% of 20240 population','FontSize',14)
somenames={'0','1-4','5-8','9-11','12+'};
legend('Baseline','Rural with City Schools, \{\alpha,\beta\}^{C}', 'Slums with City Schools, \{\alpha,\beta\}^{C}','Slum Kids, parents 1+ in Cities','Location','northwest')
set(gca,'xticklabel',somenames,'FontSize',14)
applyhatch(gcf,'x.',gray);
axis tight
print -depsc School_Improvement_Future_Generation_2040







